home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / demos / batman_group / ocaso / ocaso-1.dms / ocaso-1.adf / InstallDemo < prev    next >
Text File  |  1996-12-06  |  4KB  |  120 lines
  1. ; Script para instalar la maravillosa demo de GOBLINS: EL OCASO DE UN PAYASO
  2. ; © GOBLINS 1995. Autor: Birra
  3. ; Tiene que funcionar perfectamente desde el Workbench haciendo doble click
  4. ; Creo que por lo menos necesita 8000 bytes de pila
  5. ; Version 1.0 Instalaba solo el ejecutable
  6. ; Version 1.1 Ejecutable + Graficos + Musica (Si sus respectivos amos quieren)
  7. ; Version 1.2 Ingles, Castellano y Euskera (y si alguien me lo traduce a catalan...)
  8.  
  9. (complete 0)
  10.  
  11. (set @default-dest "work:")
  12.  
  13. (message "Bienvenido al script de instalacion de la demo\n"
  14.      "EL OCASO DEL PAYASO. Esta demo fue la que quedo\n"
  15.      "clasificada en primer lugar en la EUSKAL PARTY III\n"
  16.          "© GOBLINS 1995.\n. Autor del script: Birra/Goblins\n"
  17.      "Un saludo muy especial a los siguientes grupos:\n"
  18.      "SUPERCOCO - PLEASE WAIT - WAHT - TNC - CAPSULE\n"
  19.      "AMIGA CIRCLE - CENTOLOS - OZONE - FUTURE BRAIN\n"
  20.      "AMIGA RADIKALS - LLFB - CHIPTRONIC - NIVEL 7\n"
  21.      "ODRUSBA - CRONOS - BATMAN GROUP - TLOTB - ASK\n"
  22.      "COACH - IGUANA - ISPANIA\n"
  23.  
  24.      " ... y al resto de la escena porque nuestra \n"
  25.      "memoria no es ilimitada :)"
  26. )
  27.  
  28.  
  29. (set dest1 "")
  30.  
  31. (set dir1 (askdir
  32.         (prompt "Elige el directorio en el que se va a instalar\n"
  33.                 "la demo EL OCASO DEL PAYASO")
  34.         (default @default-dest)
  35.         (help   "Tiene que elegir el directorio en el que se va\n"
  36.             "a instalar la demo. El programa de instalacion\n"
  37.             "creara un directorio llamado OCASO en el que\n"
  38.             "se copiaran los ficheros que conforman esta\n"
  39.             "demo." 
  40.         )
  41.        )
  42. )
  43. ;añadimos la coletilla de OCASO
  44. (set dest1 (tackon dir1 "OCASO"))
  45. ;lo tomamos como directorio por defecto
  46. (set @default-dest dest1)
  47.  
  48. ;Creamos el directorio
  49. (if dest1
  50.     (makedir dest1 (infos))
  51. )
  52.  
  53. ;copiamos el join en la ram para comodidad
  54. (copyfiles  (source "EL_OCASO_1:c/join")
  55.             (dest   "ram:")
  56. )
  57.  
  58. ;Copiamos el descompressor de lha en la ram para comodidad
  59. (copyfiles (source "EL_OCASO_1:c/lhA")
  60.            (dest   "ram:")
  61. )
  62.            (Complete 8)
  63.  
  64. ;INSTALACION DE LA SUPER-HIPER-MEGA-SUPRA-INTERACTIVA-MULTIMEDIA-DEMO
  65. ;siempre que el usuario amablemente haya decidido hacerlo
  66. (
  67.            (working "Instalando la demo")
  68.  
  69.        (copyfiles  (source "el_ocaso_1:LEE ME!")
  70.                (dest   dest1)  )
  71.        (copyfiles  (source "el_ocaso_1:LEE ME!.info")
  72.                (dest   dest1)  )
  73.        (copyfiles  (source "el_ocaso_1:La_Historia_Del_Payaso")
  74.                (dest   dest1)  )
  75.        (copyfiles  (source "el_ocaso_1:La_Historia_Del_Payaso.info")
  76.                (dest   dest1)  )
  77.            (Complete 12)
  78.        (copyfiles  (source "el_ocaso_1:ocaso.lha.1")
  79.                        (dest   "ram:") )
  80.            (Complete 40)
  81.            (copyfiles  (source "El_ocaso_1:ocaso.lha.2")
  82.                        (dest   "ram:") )
  83.            (Complete 60)
  84. ;Ya tenemos la mitad de la demo en memoria
  85.        (askdisk (dest "EL_OCASO_2")
  86.                 (prompt "Por favor, mete el Disco 2 de EL OCASO DEL PAYASO")
  87.                 (help "Mete el Disco 2 en cualquier disquetera.")
  88.              (assigns) )
  89.        (working "Continuo instalando la demo...")
  90.            (run ("ram:join ram:ocaso.lha.1 ram:ocaso.lha.2 el_ocaso_2:ocaso.lha.3 el_ocaso_2:ocaso.lha.4 to %s/ocaso.lha" dest1))  
  91.            (Complete 95)
  92. ;Ya esta comprmida en el destino!!! El usuario puede disfrutar de nuestra demo!!!!
  93. ;Es el momento de borrar cosillas de la ram que ya no se van a usar
  94.            (run ("delete ram:ocaso.lha.#?"))
  95.            (run ("delete ram:join"))
  96. ;Es la hora de descomprimir la demo.. el usuario deseara verla... :)
  97.        (working "Descomprimendo....")
  98.            (run ("ram:lha x %s/ocaso.lha %s/"dest1 dest1))
  99. ;Y ya que estamos, borramos el fichero comprimido :)
  100.            (run ("delete %s/ocaso.lha"dest1))
  101.          )
  102.  
  103. (run ("delete ram:lha"))
  104.  
  105. (complete 99)
  106.  
  107. (message "Bueno, esperamos que no hagas un uso indebido de la \n"
  108.      "demo que acabas de instalar, o de los graficos o de \n"
  109.      "la musica. Si los utilizas en alguna parte, saluda- \n"
  110.      "nos en los CREDITS, ¿vale?.Y si vas a distribuir la \n"
  111.      "demo a tus amigos, hazlo con los discos de instala- \n"
  112.      "cion, que para eso me he pasado una noche haciendo  \n"
  113.      "este SCRIPT gratis para ti, ¿vale?                  \n"
  114.      "Pues nada mas. Desde aqui, mi pequeño trono, un sa- \n"
  115.      "ludo de un coder solitario.                         \n\n"
  116.      "          BIRRA / GOBLINS , Diciembre 1995\n"
  117. )
  118.      
  119. (complete 100)
  120.